home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
pctbar
/
pctbar.frm
< prev
Wrap
Text File
|
1995-05-08
|
2KB
|
63 lines
VERSION 2.00
Begin Form Form1
Caption = "Form1"
ClientHeight = 2460
ClientLeft = 2265
ClientTop = 2565
ClientWidth = 3150
Height = 2865
Left = 2205
LinkTopic = "Form1"
ScaleHeight = 2460
ScaleWidth = 3150
Top = 2220
Width = 3270
Begin HScrollBar HScroll
Height = 270
LargeChange = 10
Left = 465
Max = 100
TabIndex = 2
Top = 1395
Width = 1980
End
Begin Label lbl_Pct
Alignment = 2 'Center
BackStyle = 0 'Transparent
Height = 195
Left = 1140
TabIndex = 1
Top = 450
Width = 585
End
Begin Shape Shape1
Height = 495
Left = 420
Top = 300
Width = 2025
End
Begin Label lbl_Bar
BackColor = &H000000FF&
Height = 480
Left = 435
TabIndex = 0
Top = 315
Visible = 0 'False
Width = 15
End
End
Sub HScroll_Change ()
If (HScroll.Value > 0) Then
lbl_Bar.Visible = True
lbl_Bar.Width = HScroll.Value * 20
ElseIf (HScroll.Value = 0) Then
lbl_Bar.Visible = False
lbl_Bar.Width = 20
End If
lbl_Pct.Caption = Str(HScroll.Value) & "%"
End Sub